home *** CD-ROM | disk | FTP | other *** search
/ Generous Efforts of Many / gemcd.zip / GEM.CD.A.po / FEATURES:BEAGLE / UTIL.CITY.SHK / UTILITY.CITY / TEXT DUMP.bas < prev    next >
BASIC Source File  |  2000-01-01  |  1KB  |  11 lines

  1. 63990  REM <CTRL-M>==============<CTRL-M>TEXT DUMP<CTRL-M>BY BEAGLE BROS<CTRL-M>==============
  2. 63991  REM TO MAKE INVERSE AND/OR FLASH PRINT AS EMPHASIZED, CONSULT YOUR PRINTER MANUAL, AND ENTER APPROPRIATE CTRL OR ESC-CHARACTERS IN THIS LISTING. ALSO SEE LINE 63998.
  3. 63992  PR# 1: REM PRINTER SLOT
  4. 63993  VTAB 1: PRINT : PRINT : PRINT : FOR Y = 1 TO 24: READ A: FOR I = A TO A +39:P =  PEEK(I)
  5. 63994  IF P <32  THEN P = P +64: REM CONVERTS INVERSE "@" THROUGH "_" TO NORMAL.
  6. 63995  IF P >95  AND P <128  THEN P = P -64: REM    CONVERTS FLASHING SPACE THROUGH "?"  TO NORMAL
  7. 63996  REM  IF P > 95 AND P < 64 THEN ...: REM INVERSE SPACE THROUGH "?"
  8. 63997  REM IF P > 63 AND P < 96 THEN ...: REM  FLASHING "@" THROUGH "_"
  9. 63998  VTAB 1: PRINT  CHR$(P);: NEXT I: PRINT : REM  PRINT CHR$(10);:REM REMOVE 1ST "REM" IF YOUR PRINTER REQUIRES LINE  FEEDS.
  10. 63999  NEXT Y: PR# 0: END : DATA 1024,1152,1280,1408,1536,1664,1792,1920,1064,1192,1320,1448,1576,1704,1832,1960,1104,1232,1360,1488,1616,1744,1872,2000
  11. 65535  REM  <CTRL-M>==============<CTRL-M>TEXT DUMP<CTRL-M>BY BEAGLE BROS<CTRL-M>==============